﻿Imports MySql.Data.MySqlClient
Public Class dEmpresas
    Private con As MySqlConnection
    Private comando As MySqlCommand
    Dim lector As MySqlDataReader
    Private lector2 As MySqlDataAdapter
    Private data As DataSet
    'llamar datos de la DB
    Public Function CargarMysql(ByVal Campo As String) As ArrayList
        Dim resultado As ArrayList
        resultado = New ArrayList
        con = Conexion.open()
        comando = New MySqlCommand("Select codigo_tipo_identificacion, numero_identificacion, razon_social, direccion, telefono, email, pagina_web, codigo_municipio from empresas where codigo_empresa='" & Campo & "'", con)
        lector = comando.ExecuteReader
        If lector.Read() = True Then
            resultado.Add(lector.GetString(0))
            resultado.Add(lector.GetString(1))
            resultado.Add(lector.GetString(2))
            resultado.Add(lector.GetString(3))
            resultado.Add(lector.GetString(4))
            resultado.Add(lector.GetString(5))
            resultado.Add(lector.GetString(6))
            resultado.Add(lector.GetString(7))
        End If
        Conexion.Close(con)
        lector.Close()
        Return resultado
    End Function
    'propiedades consultar ANAlistas
    Public Function ConsultarMysql(ByVal Campo As String) As DataSet
        Dim consultar As New dConsultar
        Return consultar.Consultar_General(Campo, "Empresas")

        'Dim Resultado As ArrayList
        'Resultado = New ArrayList
        'con = Conexion.open()
        'comando = New MySqlCommand("Select codigo_analista as Codigo, nombre_analista as Analista, Telefono, Direccion, Email from analistas where codigo_analista='" & Campo & "' or nombre_analista like '" & "%" & Campo & "%" & "' and estado_analista='A'", con)
        'lector2 = New MySqlDataAdapter(comando)
        'data = New DataSet
        'lector2.Fill(data)
        'Conexion.Close(con)
        'Return data
    End Function
    'guardar la informacion
    Public Sub GuardarMysql(ByVal Codigo As String, ByVal tipo_identificacion As String, ByVal numero_identificacion As String, ByVal Razon_Social As String, ByVal direccion As String, ByVal telefono As String, ByVal email As String, ByVal pagina_web As String, ByVal codigo_municipio As String)
        Dim Resultado As ArrayList
        Resultado = CargarMysql(Codigo)
        con = Conexion.open()
        If Resultado.Count <> 0 Then
            'realizamos la actualizacion
            comando = New MySqlCommand("UPDATE empresas SET razon_social='" & Razon_Social & "', direccion='" & direccion & "', telefono='" & telefono & "', email='" & email & "', pagina_web='" & pagina_web & "', codigo_municipio='" & codigo_municipio & "'" _
                                       & "where codigo_empresa='" & Codigo & "'", con)
            comando.ExecuteNonQuery()
        Else
            'realizamos l insercion
            comando = New MySqlCommand("insert into empresas(codigo_empresa, codigo_tipo_identificacion, numero_identificacion, razon_social, direccion, telefono, email, pagina_web, codigo_municipio, estado_empresa) " _
                                       & "values('" & Codigo & "','" & tipo_identificacion & "','" & numero_identificacion & "','" & Razon_Social & "','" & direccion & "', '" & telefono & "', '" & email & "', '" & pagina_web & "','" & codigo_municipio & "','A')", con)
            comando.ExecuteNonQuery()
        End If
        Conexion.Close(con)
        'comando = New MySqlCommand("Inser  * from diagnosticos where codigo_diagnostico like '" & Campo & "%" & "'", con)
    End Sub
    Public Function DevolverNombre(ByVal campo As String) As String
        con = Conexion.open()
        comando = New MySqlCommand("select razon_social from empresas where codigo_empresa='CC9146310'", con)
        lector = comando.ExecuteReader
        lector.Read()
        Return lector.GetString(0)
        Conexion.Close(con)
        lector.Close()
    End Function
    Public Function DevolverCodigo(ByVal campo As String) As String
        con = Conexion.open()
        comando = New MySqlCommand("select codigo_empresa from empresas where razon_social='" & campo & "'", con)
        lector = comando.ExecuteReader
        lector.Read()
        Return lector.GetString(0)
        Conexion.Close(con)
        lector.Close()
    End Function
    Public Function llenar_cboMysql() As DataSet
        con = Conexion.open()
        comando = New MySqlCommand("select codigo_empresa, razon_social from empresas where estado_empresa='A'", con)
        lector2 = New MySqlDataAdapter(comando)
        data = New DataSet
        lector2.Fill(data)
        Conexion.Close(con)
        Return data
    End Function
End Class
